Digest.pl

A Do-It-Yourself Archive
for Subscribers to 
Mailing List Digests

available at:
http://www.concentric.net/~Jkeen/digest/digest.zip

James E. Keenan
Brooklyn, NY
jkeen@concentric.net
(c) 2001

From: <perl-win32-users-request@listserv.ActiveState.com>
To: <perl-win32-users@listserv.ActiveState.com>
Subject: Perl-Win32-Users digest, Vol 1 #434 - 3 msgs
Date: Sunday, May 13, 2001 4:02 PM

Send Perl-Win32-Users mailing list submissions to
	perl-win32-users@listserv.ActiveState.com

To subscribe or unsubscribe via the World Wide Web, visit
	http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
or, via email, send a message with subject or body 'help' to
	perl-win32-users-request@listserv.ActiveState.com

You can reach the person managing the list at
	perl-win32-users-admin@listserv.ActiveState.com

When replying, please edit your Subject line so it is more specific
than "Re: Contents of Perl-Win32-Users digest..."


Today's Topics:

   1. RE: Some fun with PPM: Automatically install modules when needed (Justin Rogers)
   2. Mail notification (Krung Saengpole)
   3. Re: Some fun with PPM: Automatically install modules when needed (Sisyphus)

--__--__--

Message: 1
From: "Justin Rogers" <justin@mlstoday.com>
To: "'Jan Dubois'" <JanD@ActiveState.com>
Cc: <perl-win32-users@listserv.ActiveState.com>,
   "'Brian Ingerson'" <briani@ActiveState.com>
Subject: RE: Some fun with PPM: Automatically install modules when needed
Date: Sat, 12 May 2001 13:55:55 -0700

I think that should be sufficient though.  This is more of an Admin type
tool, wherein we make little shortcuts for others to run Perl Scripts.
If we need to specify modules on the command line then we add:

I am assuming that will work, unless the load order of the modules isn't
necessarily sequential based on command line input.


--__--__--

Message: 2
Date: Sat, 12 May 2001 18:26:33 -0700 (PDT)
From: Krung Saengpole <saengpole@excite.com>
To: perl-win32-users@listserv.activestate.com
Subject: Mail notification

Hi all,


--__--__--



From: <perl-beginner@yahoogroups.com>
To: <perl-beginner@yahoogroups.com>
Subject: [PBML] Digest Number 349
Date: Sunday, May 13, 2001 6:52 AM

There are 5 messages in this issue.

Topics in this digest:

      1. Upating a file's contents
           From: "Don Smith" <dmsmith@tru.eastlink.ca>
      2. Real neat FREE SMS Messaging Web Service
           From: "Greg Simmons" <greg.simmons@ntlworld.com>
      3. Re: Upating a file's contents
           From: "Charles K. Clarkson" <c_clarkson@hotmail.com>
      4. Linux Based Editors for Perl
           From: fschmuck@chartertn.net
      5. Re: Upating a file's contents
           From: "Don Smith" <dmsmith@tru.eastlink.ca>


________________________________________________________________________
________________________________________________________________________

Message: 1
   Date: Sat, 12 May 2001 09:50:34 -0300
   From: "Don Smith" <dmsmith@tru.eastlink.ca>
Subject: Upating a file's contents

Greetings,

I have a script that opens a file (file.txt) with the contents arranged as
follows...

#!/usr/bin/perl -w
use lib '/CGI.pm';
use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';

$foo = new CGI;

$RESULT = "File.txt";
$total = 0;

________________________________________________________________________
________________________________________________________________________

Message: 2
   Date: Sat, 12 May 2001 19:54:58 +0100
   From: "Greg Simmons" <greg.simmons@ntlworld.com>
Subject: Real neat FREE SMS Messaging Web Service

For those who are interested in SOAP web services,
I've just located this new web service. It seems to be
the first commercial one I've come across that's
a) working & b) actually useful.

________________________________________________________________________
________________________________________________________________________

%my_digests = (
	'pw32u' =>
		['perl-win32-users', 
		 'Perl-Win32-Users', 
		 'Perl-Win32-Users digest.*\..*', 
		 '.*Vol\s(\d+)\s#(\d+)\s-\s\d+\smsgs?\.txt$', 
		 'sprintf("%03d",$1) . \'_\' . sprintf("%04d",$2)',
		 # next element must be double-quoted
		 "--__--__--\n\n",
		 'Today\'s Topics:', 
		 '^Message:\s+(\d+)$', 
		 'sprintf("%04d",$1)', 
		 '^From:\s+(.+)$', 
		 '^Subject:\s+(.+)$', 
		 # next element must be double-quoted
		 "--__--__--\n\n", 
		],
	'pbml' =>
		['perl-beginner', 
		 'Perl Beginner', 
		 '.*Digest Number.*\..*', 
		 '.*\s(\d+)\.txt$', 
		 'sprintf("%05d",$1)',
		 # next element must be double-quoted
		 "_______________\n_______________\n\n",
		 'Topics in this digest:', 
		 '^Message:\s+(\d+)$', 
		 'sprintf("%04d",$1)', 
		 '^\s*From:\s+(.+)$', 
		 '^Subject:\s+(.+)$', 
		 # next element must be double-quoted
		 "_*_*_*_*_*_*_*_*\n_*_*_*_*_*_*_*_*\n\n\n", 
		],
);


Thread:	Some fun with PPM Automatically install modules when needed
Message:	001_0433_0025
From:	Jan Dubois <JanD@ActiveState.com>
Text:

I've been hanging out last night with a couple fellow Activators at
SteamWorks (no, it's not a gym, it's a brewpub).  Among our usual
brilliant ideas (solving world hunger by boiling the ocean), we also came
up with a genuinely interesting one:

Why do we have to install modules on the local machine?  When a program
tries to load a module and cannot find it, ActivePerl should be "smart"
enough to just go out to the PPM repository and install it on its own if
it cannot find it locally.

A first attempt at implementation was surprisingly simple.  Just copy this
little module into \Perl\site\lib\PPM\AutoInstall.pm:

package PPM::AutoInstall;

push @INC, sub {
    my ($code, $file) = @_;
    return if $file =~ /(?:Config|PPM).pm/;
    (my $pkg = $file) =~ s/\.pm$//;
    $pkg =~ s,/,-,g;
    local $^W;
    require PPM;
    local $PPM::PPMERR;
    unless (PPM::InstallPackage(package => $pkg)) {
	warn "$PPM::PPMERR\n";
	return;
    }
    require Config;
    open my $fh, "< $Config::Config{sitearchexp}/$file"
	or warn "Package $pkg didn't install $file\n";
    return $fh;
};

1;

--__--__--

Thread:	Some fun with PPM Automatically install modules when needed
Message:	001_0434_0001
From:	"Justin Rogers" <justin@mlstoday.com>
Text:

I think that should be sufficient though.  This is more of an Admin type
tool, wherein we make little shortcuts for others to run Perl Scripts.
If we need to specify modules on the command line then we add:

I am assuming that will work, unless the load order of the modules isn't
necessarily sequential based on command line input.

Justin Rogers


--__--__--


Shell:  Start

C:\My Documents\Digest>perl digest.pl pw32u

digests_log.txt

001_0431;Fri May 11 19:53:23 2001;Fri May 11 19:53:23 2001
001_0432;Fri May 11 19:53:23 2001;Fri May 11 19:53:23 2001
001_0433;Sun May 13 12:24:18 2001;Sun May 13 12:24:18 2001
001_0434;Sun May 13 21:53:59 2001;Sun May 13 21:53:59 2001
001_0435;Mon May 14 20:38:41 2001;Mon May 14 20:38:41 2001
001_0436;Tue May 15 19:14:02 2001;Tue May 15 19:14:02 2001
001_0437;Tue May 15 19:14:02 2001;Tue May 15 19:14:02 2001
001_0438;Wed May 16 20:40:38 2001;Wed May 16 20:40:38 2001
001_0439;Wed May 16 20:40:38 2001;Wed May 16 20:40:38 2001
001_0440;Thu May 17 21:00:40 2001;Thu May 17 21:00:40 2001

todays_topics.txt

Today's Topics

Perl-Win32-Users digest, Vol 1 #434 - 3 msgs.txt
   1.	RE: Some fun with PPM: Automatically install modules when needed (Justin Rogers)
   2.	Mail notification (Krung Saengpole)
   3.	Re: Some fun with PPM: Automatically install modules when needed (Sisyphus)

Perl-Win32-Users digest, Vol 1 #435 - 22 msgs.txt
   1.	Re: Mail notification (Mark Bergeron)
   2.	Presenting Durito: (proposed) XML document publishing and searching system (ahg@servidor.unam.mx)
   3.	RE: Tutorial for Perl/Tk (Marcus)
   4.	Re: Mail notification (Krung Saengpole)
   5.	Update required to Statistics::Distributions (simon andrews)

Shell:  End
                               RESULTS

  Digests processed:            20
  Messages processed:           390
  Threads directory:            C:\My Documents\Digest\pw32u\Threads
  Threads created/modified:     155

See performance statistics in:
    C:/My Documents/Digest/pw32u/stats_pw32u.txt

Elapsed user time:      4.94 CPU seconds


An Index of Incivility in the Perl Community



List Name:
Perl-Win32-Users
@listserv.ActiveState.com
Period Tracked:
Jul 29, 2000 - Jun 8, 2001
Total Digests Archived:
432
Total Discussion Threads:
3,313
Total Postings:
10,405
Threads Containing "RTFM":
19
Original Postings Containing "RTFM":
27
Index of Incivility (%)
0.26




List Name:
perl-beginner
@yahoogroups.com
Period Tracked:
Feb 23, 2001 - Jun 8, 2001
Total Digests Archived:
149
Total Discussion Threads:
643
Total Postings:
2,163
Threads Containing "RTFM":
3
Original Postings Containing "RTFM":
3
Index of Incivility (%)
0.14



